
;;
;; convert from l2 to l1 form
;;

(defparameter *l2-form-sample*
  '((rem "begin")

    (alias
     ("name|*-name" string)
     ("id|*-id" integer))

    (struct user-profile
     id
     display-name
     (string note))

    (set (default-argument-name user-profile) profile)

    (add (constraints user-profile)
     (and
      (not-null "display-name")
      (size "display-name" :min 3 :max 64)
      (nullable "note")))

    (func check-twice (profile)
     (validate profile))

    (rem)))
